﻿Imports DLGestionProyecto
Public Class BLGPPersonal
    '*********************************************************
    'Funcion que carga la Lista de Categorias del Personal
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLListarCategoria() As DataTable
        Try

            Dim lBL As New DLGestionProyecto.DLGPPersonal
            Dim lDt As New DataTable
            lDt = lBL.fuDLListarCategoria()

            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuBLListarCategoria " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function
    '*********************************************************
    'Funcion que Busca el Personal por Codigo
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLBuscarPersonalx(ByVal piPerPersonalID As Integer) As DataTable
        Try
            Dim lBL As New DLGestionProyecto.DLGPPersonal
            Dim lDt As New DataTable
            lDt = lBL.fuDLBuscarPersonalx(piPerPersonalID)

            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuBLBuscarPersonalx " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function

End Class
